home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / tools / util574.d64 / disksorter & uhr (.txt) < prev    next >
Commodore BASIC  |  1995-08-06  |  1KB  |  62 lines
  1. 20 POKE53280,0
  2. 30 POKE53281,0:GOTO500
  3. 300 PRINT"PROGRAMM LOADING AFTER SET WATCH "
  4. 420 FORW=0TO30:FORZ=1TO16
  5. 430 POKE53280,Z:NEXTZ:NEXTW
  6. 481 POKE2053,158:POKE2064,128:POKE2,3
  7. 482 A=1:IFA=1THEN LOAD"PART TWO",8,1:A=A+1
  8. 490 PRINT"[147]MOMENT BITTE !!!"
  9. 500 AD=828
  10. 510 SA=AD+23
  11. 520 AH=INT(SA/256)
  12. 530 AL=(SA/256-AH)*256
  13. 540 FORI=0TO149
  14. 550 READB
  15. 560 C=C+B
  16. 570 POKEAD+I,B
  17. 580 NEXTI
  18. 590 IFC<>14311 THENPRINT"LEIDER FEHLER":
  19. 600 PRINTCHR$(5)"[147]BUBU PRESENTS DISKSORTER MIT UHR":PRINT""
  20. 610 POKE252,AL
  21. 620 POKE253,AH
  22. 630 POKE251,1
  23. 640 INPUT"ZEIT IN HHMMSS";T$
  24. 650 SE=VAL(RIGHT$(T$,1))
  25. 660 SZ=VAL(MID$(T$,5,1))
  26. 670 ME=VAL(MID$(T$,4,1))
  27. 680 MZ=VAL(MID$(T$,3,1))
  28. 690 HE=VAL(MID$(T$,2,1))
  29. 700 HZ=VAL(LEFT$(T$,1))
  30. 710 SS=16*SZ+SE
  31. 720 MM=16*MZ+ME
  32. 730 Q=VAL(T$)
  33. 740 IF Q>125959THEN HH=128:HZ=HZ-1:HE=HE-2
  34. 750 HH=HH+16*HZ+HE
  35. 760 BA=56576
  36. 770 FL=PEEK(BA+14)
  37. 780 POKEBA+14,FLOR128
  38. 790 CRB=PEEK(BA+15)
  39. 800 POKEBA+15,CRBAND127
  40. 810 POKEBA+11,HH
  41. 820 POKEBA+10,MM
  42. 830 POKEBA+09,SS
  43. 840 POKEBA+08,0
  44. 850 SYSAD:GOTO 300
  45. 860 DATA120,174,20,3,172,21,3,165,252
  46. 870 DATA141,20,3,165,253,141,21,3,134
  47. 880 DATA252,132,253,88,96,173,14,221
  48. 890 DATA9,128,141,14,221,160,7,165,251
  49. 900 DATA153,32,216,136,16,250,169,,133
  50. 910 DATA254,173,11,221,72,41,128,170,104
  51. 920 DATA41,63,224,,240,7,201,18,240,3
  52. 930 DATA24,105,18,168
  53. 940 DATA74,74,74,74,24,105,48,141,32,4
  54. 950 DATA152,41,15,24,105,48,141,33,4
  55. 960 DATA169,58,141,34,4,173,10,221,74
  56. 970 DATA74,74,74,24,105,48,141,35,4
  57. 980 DATA173,10,221,41,15,24,105,48,141
  58. 990 DATA36,4,169,58,141,37,4,173,9
  59. 1000 DATA221,74,74,74,74,24,105,48,141
  60. 1010 DATA38,4,173,9,221,41,15,24,105,48
  61. 1020 DATA141,39,4,173,8,221,108,252,0
  62.